﻿''' <summary>
''' 绘制圆管理类，用于绘制多个圆的坐标线
''' </summary>
''' <remarks></remarks>
Public Class CircleAxes
    Inherits WindBase
    Public Sub Draw(ByVal grap As Graphics, ByVal m_Interval As Single, ByVal m_Count As Integer, ByVal Location As PointF)
        m_PenProperty.Width = m_PenProperty.Width * PannelSetting.gScale / PannelSetting.PreScale '当比例发生变化时需要高速画笔的宽度
        Dim R As Single = 0
        Dim m_Pen As New Pen(Color.FromArgb(m_PenProperty.color))
        m_Pen.DashStyle = m_PenProperty.DashStyle
        m_Pen.Width = m_PenProperty.Width
        For i As Integer = 0 To m_Count - 1
            R = 0 + (i + 1) * m_Interval
            If m_Visible Then '如果可见就绘制坐标轴的轴线
                grap.DrawEllipse(m_Pen, New RectangleF(-R + Location.X, -R + Location.Y, 2.0 * R, 2.0 * R))
            End If
        Next
    End Sub
End Class
